home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / dimf.zip / TST.LSP < prev   
Lisp/Scheme  |  1990-12-03  |  410b  |  20 lines
  1. (defun c:tst (/ SS N I E1 S1 S12 E2 TH)
  2.  (setq ss (ssget))
  3.  (setq st (getstring "\nEnter New Text Style: "))
  4.  (setq n (sslength ss))
  5.  (setq i 0)
  6.   (repeat n
  7.    (setq e1 (entget (ssname ss i)))
  8.    (setq i (+ i 1))
  9.    (setq s1 (assoc 0 e1))
  10.    (if (= "TEXT" (cdr s1))
  11.     (progn
  12.      (setq s12 (assoc 7 e1))
  13.      (setq e2 (subst (cons 7 ST) s12 e1))
  14.      (entmod e2)
  15.     )
  16.    )
  17.   )
  18.  (princ)
  19. )
  20.